home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / fgl110c.zip / 06-01.C < prev    next >
Text File  |  1992-01-31  |  1KB  |  54 lines
  1. #include <fastgraf.h>
  2. #include <stdlib.h>
  3.  
  4. void main(void);
  5.  
  6. void main()
  7. {
  8.    int area;
  9.    int color, old_color;
  10.    int left;
  11.    int max_color, max_x, max_y;
  12.    int new_mode, old_mode;
  13.    int x, y;
  14.  
  15.    old_mode = fg_getmode();
  16.    new_mode = fg_automode();
  17.    fg_setmode(new_mode);
  18.  
  19.    if (new_mode == 4)
  20.       max_color = 3;
  21.    else if (new_mode == 11 || new_mode == 17)
  22.       max_color = 1;
  23.    else if (new_mode == 19)
  24.       max_color = 255;
  25.    else
  26.       max_color = 15;
  27.  
  28.    left = 100;
  29.    max_x = fg_getmaxx() - 1;
  30.    max_y = fg_getmaxy() - 1;
  31.  
  32.    while (left > 0) {
  33.  
  34.       x = rand() % max_x + 1;
  35.       y = rand() % max_y + 1;
  36.  
  37.       area = fg_getpixel(x-1,y-1) + fg_getpixel(x,y-1) + fg_getpixel(x+1,y-1)
  38.            + fg_getpixel(x-1,y)   + fg_getpixel(x,y)   + fg_getpixel(x+1,y)
  39.            + fg_getpixel(x-1,y+1) + fg_getpixel(x,y+1) + fg_getpixel(x+1,y+1);
  40.  
  41.       if (area == 0) {
  42.          color = rand() % max_color + 1;
  43.          fg_setcolor(color);
  44.          fg_point(x,y);
  45.          left--;
  46.          }
  47.       }
  48.  
  49.    fg_waitkey();
  50.  
  51.    fg_setmode(old_mode);
  52.    fg_reset();
  53. }
  54.